Personal Computer World 2009 February/PCWFEB09.iso/Software/Shareware/IDimager Personal 4.2.0.3/setup_IDimager_Personal_V4.exe/{app}/web/modules/publicfunctions.inc

Text File | 2008-06-21 | 3KB | 83 lines

  function IsAdmin: Boolean;
  begin
    result := Nvl(SessionData.Prop['IsAdmin'], False);
  end;

  function AjaxContainer: String;
  begin
    result := Request.Params.Values['_container'];
  end;

  function CurrentUser: WideString;
  begin
    result := Nvl(SessionData.Prop['CurrentUser'],'');
  end;

  function CurrentUserGUID: WideString;
  begin
    result := Nvl(SessionData.Prop['CurrentUserGUID'], '');
  end;

  function FormatForHTMLEditing (AText: WideString): WideString;
  begin
    result := AText;

    result := StrTran(result, '"', '&#' + IntToStr(Ord('"')) + ';');
  end;

  function FormatForHTML (AText: WideString): WideString;
  begin
    result := AText;

    result := StrTran(result, '"', '&#' + IntToStr(Ord('"')) + ';');
    result := StrTran(result, #10#13, '<br/>');
    result := StrTran(result, #13#10, '<br/>');

    result := StrTran(result, ';)' , '<img src="%var:PageOffset\images\smiley_wink.png"  alt=";)" title=";)">');
    result := StrTran(result, ':D' , '<img src="%var:PageOffset\images\smiley_laugh.png" alt=":D" title=":D">');
    result := StrTran(result, ':)' , '<img src="%var:PageOffset\images\smiley_smile.png" alt=":)" title=":)">');
    result := StrTran(result, ':(' , '<img src="%var:PageOffset\images\smiley_sad.png"   alt=":(" title=":(">');
    result := StrTran(result, ':o)', '<img src="%var:PageOffset\images\smiley_clown.png" alt=":o)" title=":o)">');
    result := StrTran(result, ':0' , '<img src="%var:PageOffset\images\smiley_ooo.png"  alt=":0" title=":0">');
    result := StrTran(result, '8)' , '<img src="%var:PageOffset\images\smiley_cool.png"  alt="8)" title="8)">');
    result := StrTran(result, ':$' , '<img src="%var:PageOffset\images\smiley_oops.png"  alt=":$" title=":$">');
    result := StrTran(result, ':*' , '<img src="%var:PageOffset\images\smiley_sick.png"  alt=":*" title=":*">');
    result := StrTran(result, ':''(', '<img src="%var:PageOffset\images\smiley_cry.png"   alt=":''(" title=":''(">');
    result := StrTran(result, ':tooth:' , '<img src="%var:PageOffset\images\smiley_tooth.png"  alt=":tooth:" title=":tooth:">');
  end;

  function ThumbCount: Integer;
  begin
    result := 12;    // the number of thumbs per page
  end;

  function CanUpdateComment (AGUID: String): Boolean;
  var
    AComment: TCatalogItemComment;
  begin
    result := False;
    if AGUID = '' then
      exit;

    result := IsAdmin;

    if not result then
    begin
      AComment := TCatalogItemComment.Create(nil);

      if Catalog.EnumCommentByGUID (AGUID, AComment) then
        result := (AComment.UserGUID = CurrentUserGUID);

      AComment.Free;
    end;
  end;

  function FixTiny (AString: WideString): WideString;
  begin
    result := Trim(AString);

    //result := strtran(result, '<p>', '');
    //result := strtran(result, '</p>', '');
  end;